FOR EACH mon_ NO-LOCK ,
    EACH _connect NO-LOCK WHERE _connect-usr = INTEGER(mon_user1) BREAK BY mon_userid:
    DISP mon_userid mon_sid _Connect-Name _Connect-Usr.
END.
